Changeset 11666 for NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk_algo_coare3p0.F90
- Timestamp:
- 2019-10-09T12:17:05+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk_algo_coare3p0.F90
r11631 r11666 70 70 IF ( l_use_wl ) THEN 71 71 ierr = 0 72 PRINT *, ' *** coare3p0_init: WL => allocating Tau_ac, Qnt_ac, and H_wl :', jpi,jpj73 72 ALLOCATE ( Tau_ac(jpi,jpj) , Qnt_ac(jpi,jpj), H_wl(jpi,jpj), STAT=ierr ) 74 73 !IF( ierr > 0 ) STOP ' COARE3P0_INIT => allocation of Tau_ac and Qnt_ac failed!' … … 76 75 Qnt_ac(:,:) = 0._wp 77 76 H_wl(:,:) = H_wl_max 78 PRINT *, ' *** Tau_ac , Qnt_ac, and H_wl allocated!'79 77 END IF 80 78 !! 81 79 IF ( l_use_cs ) THEN 82 80 ierr = 0 83 PRINT *, ' *** coare3p0_init: CS => allocating delta_vl :', jpi,jpj84 81 ALLOCATE ( delta_vl(jpi,jpj), STAT=ierr ) 85 82 !IF( ierr > 0 ) STOP ' COARE3P0_INIT => allocation of delta_vl and Qnt_ac failed!' 86 83 delta_vl(:,:) = 0.001_wp ! First guess of zdelta [m] 87 PRINT *, ' *** delta_vl allocated!'88 84 END IF 89 85 END SUBROUTINE coare3p0_init
Note: See TracChangeset
for help on using the changeset viewer.