- Timestamp:
- 2019-11-07T17:55:13+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/TOP/prtctl_trc.F90
r10570 r11872 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.