Changeset 7815 for trunk/NEMOGCM/NEMO
- Timestamp:
- 2017-03-20T18:31:43+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r7813 r7815 1584 1584 ! 1585 1585 INTEGER :: jl ! dummy loop index 1586 REAL(wp), POINTER, DIMENSION(:,: ) :: zcptn, ztmp, z icefr, zmsk, zsnw1586 REAL(wp), POINTER, DIMENSION(:,: ) :: zcptn, ztmp, zcptrain, zcptsnw, zicefr, zmsk, zsnw 1587 1587 REAL(wp), POINTER, DIMENSION(:,: ) :: zemp_tot, zemp_ice, zemp_oce, ztprecip, zsprecip, zevap_oce, zevap_ice, zdevap_ice 1588 1588 REAL(wp), POINTER, DIMENSION(:,: ) :: zqns_tot, zqns_oce, zqsr_tot, zqsr_oce, zqprec_ice, zqemp_oce, zqemp_ice … … 1592 1592 IF( nn_timing == 1 ) CALL timing_start('sbc_cpl_ice_flx') 1593 1593 ! 1594 CALL wrk_alloc( jpi,jpj, zcptn, ztmp, z icefr, zmsk, zsnw )1594 CALL wrk_alloc( jpi,jpj, zcptn, ztmp, zcptrain, zcptsnw, zicefr, zmsk, zsnw ) 1595 1595 CALL wrk_alloc( jpi,jpj, zemp_tot, zemp_ice, zemp_oce, ztprecip, zsprecip, zevap_oce, zevap_ice, zdevap_ice ) 1596 1596 CALL wrk_alloc( jpi,jpj, zqns_tot, zqns_oce, zqsr_tot, zqsr_oce, zqprec_ice, zqemp_oce, zqemp_ice )
Note: See TracChangeset
for help on using the changeset viewer.