Changeset 12377 for NEMO/trunk/src/TOP/prtctl_trc.F90
- Timestamp:
- 2020-02-12T15:39:06+01:00 (4 years ago)
- Location:
- NEMO/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk
- Property svn:externals
-
old new 3 3 ^/utils/build/mk@HEAD mk 4 4 ^/utils/tools@HEAD tools 5 ^/vendors/AGRIF/dev @HEAD ext/AGRIF5 ^/vendors/AGRIF/dev_r11615_ENHANCE-04_namelists_as_internalfiles_agrif@HEAD ext/AGRIF 6 6 ^/vendors/FCM@HEAD ext/FCM 7 7 ^/vendors/IOIPSL@HEAD ext/IOIPSL
-
- Property svn:externals
-
NEMO/trunk/src/TOP/prtctl_trc.F90
r10570 r12377 35 35 SUBROUTINE prt_ctl_trc( tab4d, mask, clinfo, ovlap, kdim, clinfo2 ) 36 36 !!---------------------------------------------------------------------- 37 !! *** ROUTINE prt_ctl ***37 !! *** ROUTINE prt_ctl_trc *** 38 38 !! 39 39 !! ** Purpose : - print sum control 3D arrays over the same area … … 41 41 !! debugging a new parametrization in mono or mpp. 42 42 !! 43 !! ** Method : 2 possibilities exist when setting the ln_ctlparameter to43 !! ** Method : 2 possibilities exist when setting the sn_cfctl%prttrc parameter to 44 44 !! .true. in the ocean namelist: 45 45 !! - to debug a MPI run .vs. a mono-processor one; … … 54 54 !! - All arguments of the above calling sequence are optional so their 55 55 !! name must be explicitly typed if used. For instance if the mask 56 !! array tmask(:,:,:) must be passed through the prt_ctl subroutine,57 !! it must look s like: CALL prt_ctl( mask=tmask ).56 !! array tmask(:,:,:) must be passed through the prt_ctl_trc subroutine, 57 !! it must look like: CALL prt_ctl_trc( mask=tmask ). 58 58 !!---------------------------------------------------------------------- 59 59 REAL(wp) , DIMENSION(:,:,:,:), INTENT(in), OPTIONAL :: tab4d ! 4D array
Note: See TracChangeset
for help on using the changeset viewer.