- Timestamp:
- 2017-12-01T18:44:09+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC/module_example
r4147 r8882 86 86 !! Give references if exist otherwise suppress these lines 87 87 !!---------------------------------------------------------------------- 88 USE toto_module ! description of the module89 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released90 USE wrk_nemo, ONLY: zztab => wrk_2d_5 ! 2D workspace91 USE wrk_nemo, ONLY: zwx => wrk_3d_12 , zwy => wrk_3d_13 ! 3D workspace92 !!93 88 INTEGER , INTENT(in ) :: kt ! short description 94 89 INTEGER , INTENT(inout) :: pvar1 ! - - … … 100 95 REAL(wp) :: zmlmin, zbbrau ! temporary scalars (DOCTOR : start with z) 101 96 REAL(wp) :: zfact1, zfact2 ! do not use continuation lines in declaration 97 REAL(wp), DIMENSION(jpi,jpj) :: zwrk_2d ! 2D workspace 102 98 !!-------------------------------------------------------------------- 103 104 IF( wrk_in_use(3, 12,13) .OR. wrk_in_use(2, 5 ) THEN 105 CALL ctl_stop('exa_mpl: requested workspace arrays unavailable') ; RETURN 106 ENDIF 107 99 ! 108 100 IF( kt == nit000 ) CALL exa_mpl_init ! Initialization (first time-step only) 109 101 … … 119 111 DO jj = 2, jpjm1 120 112 DO ji = fs_2, fs_jpim1 ! vector opt. 121 avm v(ji,jj,jk) = ....113 avm(ji,jj,jk) = .... 122 114 END DO 123 115 END DO … … 128 120 DO jj = 2, jpjm1 129 121 DO ji = fs_2, fs_jpim1 ! vector opt. 130 avm v(ji,jj,jk) = ...122 avm(ji,jj,jk) = ... 131 123 END DO 132 124 END DO … … 135 127 END SELECT 136 128 ! 137 CALL mpplnk2( avmu, 'U', 1. ) ! Lateral boundary conditions (unchanged sign) 138 ! 139 IF( wrk_not_released(3, 12,13) .OR. wrk_not_released(2, 5 ) THEN 140 CALL ctl_stop('exa_mpl: failed to release workspace arrays') ; RETURN 141 ENDIF 129 CALL lbc_lnk( avm, 'T', 1. ) ! Lateral boundary conditions (unchanged sign) 142 130 ! 143 131 END SUBROUTINE exa_mpl
Note: See TracChangeset
for help on using the changeset viewer.