- Timestamp:
- 2020-02-24T14:00:21+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/KERNEL-03_Storkey_Coward_RK3_stage2/src/OCE/SBC/sbcapr.F90
r12377 r12443 36 36 37 37 REAL(wp) :: tarea ! whole domain mean masked ocean surface 38 REAL(wp) :: r1_grau ! = 1.e0 / (grav * r au0)38 REAL(wp) :: r1_grau ! = 1.e0 / (grav * rho0) 39 39 40 40 TYPE(FLD), ALLOCATABLE, DIMENSION(:) :: sf_apr ! structure of input fields (file informations, fields read) … … 98 98 ENDIF 99 99 ! 100 r1_grau = 1.e0 / (grav * r au0) !* constant for optimization100 r1_grau = 1.e0 / (grav * rho0) !* constant for optimization 101 101 ! 102 102 ! !* control check
Note: See TracChangeset
for help on using the changeset viewer.