/[MITgcm]/MITgcm/pkg/ctrl/ctrl_init.F
ViewVC logotype

Diff of /MITgcm/pkg/ctrl/ctrl_init.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.3 by heimbach, Mon Aug 13 18:10:26 2001 UTC revision 1.4 by heimbach, Sun Mar 24 02:13:45 2002 UTC
# Line 428  cph) Line 428  cph)
428  c  c
429  c     Summation of wet point counters  c     Summation of wet point counters
430  c  c
431        CALL GLOBAL_SUM_INT( nvarlength,  myThid )        do k = 1, Nr
432        ntmp=0           CALL GLOBAL_SUM_INT( nvarlength,  myThid )
433        do bj=1,nSy           ntmp=0
434           do bi=1,nSx           do bj=1,nSy
435              ntmp=ntmp+nWetcTile(bi,bj,k)              do bi=1,nSx
436                   ntmp=ntmp+nWetcTile(bi,bj,k)
437                enddo
438           enddo           enddo
439        enddo           CALL GLOBAL_SUM_INT( ntmp,  myThid )
440        CALL GLOBAL_SUM_INT( ntmp,  myThid )           nWetcTile(1,1,k)=ntmp
441        nWetcTile(1,1,k)=ntmp           ntmp=0
442        ntmp=0           do bj=1,nSy
443        do bj=1,nSy              do bi=1,nSx
444           do bi=1,nSx                 ntmp=ntmp+nWetsTile(bi,bj,k)
445              ntmp=ntmp+nWetsTile(bi,bj,k)              enddo
446           enddo           enddo
447        enddo           CALL GLOBAL_SUM_INT( ntmp,  myThid )
448        CALL GLOBAL_SUM_INT( ntmp,  myThid )           nWetsTile(1,1,k)=ntmp
449        nWetsTile(1,1,k)=ntmp           ntmp=0
450        ntmp=0           do bj=1,nSy
451        do bj=1,nSy              do bi=1,nSx
452           do bi=1,nSx                 ntmp=ntmp+nWetwTile(bi,bj,k)
453              ntmp=ntmp+nWetwTile(bi,bj,k)              enddo
454           enddo           enddo
455             CALL GLOBAL_SUM_INT( ntmp,  myThid )
456             nWetwTile(1,1,k)=ntmp
457        enddo        enddo
       CALL GLOBAL_SUM_INT( ntmp,  myThid )  
       nWetwTile(1,1,k)=ntmp  
458    
459        print*, 'ctrl_init: no. of control variables: ', nvartype        print*, 'ctrl_init: no. of control variables: ', nvartype
460        print*, 'ctrl_init: control vector length:    ', nvarlength        print*, 'ctrl_init: control vector length:    ', nvarlength
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22