- Timestamp:
- 2011-03-02T19:38:35+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zlys.F90
r2528 r2643 31 31 32 32 !! * Shared module variables 33 REAL(wp), PUBLIC :: & 34 kdca = 0.327e3_wp , & !: 35 nca = 1.0_wp !: 33 REAL(wp), PUBLIC :: kdca = 0.327e3_wp !: diss. rate constant calcite 34 REAL(wp), PUBLIC :: nca = 1.0_wp !: order of reaction for calcite dissolution 36 35 37 36 !! * Module variables 38 REAL(wp) :: & 39 calcon = 1.03E-2 ! mean calcite concentration [Ca2+] in sea water [mole/kg solution] 40 41 INTEGER :: & 42 rmtss !: number of seconds per month 37 REAL(wp) :: calcon = 1.03E-2 !: mean calcite concentration [Ca2+] in sea water [mole/kg solution] 38 39 INTEGER :: rmtss !: number of seconds per month 43 40 44 41 !!---------------------------------------------------------------------- … … 60 57 !! ** Method : - ??? 61 58 !!--------------------------------------------------------------------- 59 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 60 USE wrk_nemo, ONLY: zco3 => wrk_3d_2, zcaldiss => wrk_3d_3 61 ! 62 62 INTEGER, INTENT(in) :: kt ! ocean time step 63 63 INTEGER :: ji, jj, jk, jn … … 65 65 REAL(wp) :: zdispot, zfact, zalka 66 66 REAL(wp) :: zomegaca, zexcess, zexcess0 67 REAL(wp), DIMENSION(jpi,jpj,jpk) :: zco368 67 #if defined key_diatrc && defined key_iomput 69 68 REAL(wp) :: zrfact2 70 REAL(wp), DIMENSION(jpi,jpj,jpk) :: zcaldiss71 69 #endif 72 70 CHARACTER (len=25) :: charout 73 71 !!--------------------------------------------------------------------- 74 72 73 IF( wrk_in_use(3, 2,3) ) THEN 74 CALL ctl_stop('p4z_lys: requested workspace arrays unavailable') ; RETURN 75 END IF 76 75 77 zco3(:,:,:) = 0. 76 77 78 # if defined key_diatrc && defined key_iomput 78 79 zcaldiss(:,:,:) = 0. … … 186 187 ENDIF 187 188 189 IF( wrk_not_released(3, 2,3) ) CALL ctl_stop('p4z_lys: failed to release workspace arrays') 190 ! 188 191 END SUBROUTINE p4z_lys 189 192
Note: See TracChangeset
for help on using the changeset viewer.