Changeset 11666


Ignore:
Timestamp:
2019-10-09T12:17:05+02:00 (12 months ago)
Author:
laurent
Message:

LB: improved syntax

Location:
NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk_algo_coare3p0.F90

    r11631 r11666  
    7070      IF ( l_use_wl ) THEN 
    7171         ierr = 0 
    72          PRINT *, ' *** coare3p0_init: WL => allocating Tau_ac, Qnt_ac, and H_wl :', jpi,jpj 
    7372         ALLOCATE ( Tau_ac(jpi,jpj) , Qnt_ac(jpi,jpj), H_wl(jpi,jpj), STAT=ierr ) 
    7473         !IF( ierr > 0 ) STOP ' COARE3P0_INIT => allocation of Tau_ac and Qnt_ac failed!' 
     
    7675         Qnt_ac(:,:)   = 0._wp 
    7776         H_wl(:,:)    = H_wl_max 
    78          PRINT *, ' *** Tau_ac , Qnt_ac, and H_wl allocated!' 
    7977      END IF 
    8078      !! 
    8179      IF ( l_use_cs ) THEN 
    8280         ierr = 0 
    83          PRINT *, ' *** coare3p0_init: CS => allocating delta_vl :', jpi,jpj 
    8481         ALLOCATE ( delta_vl(jpi,jpj), STAT=ierr ) 
    8582         !IF( ierr > 0 ) STOP ' COARE3P0_INIT => allocation of delta_vl and Qnt_ac failed!' 
    8683         delta_vl(:,:) = 0.001_wp      ! First guess of zdelta [m] 
    87          PRINT *, ' *** delta_vl allocated!' 
    8884      END IF 
    8985   END SUBROUTINE coare3p0_init 
  • NEMO/branches/2019/dev_r11085_ASINTER-05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk_algo_coare3p6.F90

    r11631 r11666  
    7070      IF ( l_use_wl ) THEN 
    7171         ierr = 0 
    72          PRINT *, ' *** coare3p6_init: WL => allocating Tau_ac, Qnt_ac, and H_wl :', jpi,jpj 
    7372         ALLOCATE ( Tau_ac(jpi,jpj) , Qnt_ac(jpi,jpj), H_wl(jpi,jpj), STAT=ierr ) 
    7473         !IF( ierr > 0 ) STOP ' COARE3P6_INIT => allocation of Tau_ac and Qnt_ac failed!' 
     
    7675         Qnt_ac(:,:)   = 0._wp 
    7776         H_wl(:,:)    = H_wl_max 
    78          PRINT *, ' *** Tau_ac , Qnt_ac, and H_wl allocated!' 
    7977      END IF 
    8078      !! 
    8179      IF ( l_use_cs ) THEN 
    8280         ierr = 0 
    83          PRINT *, ' *** coare3p6_init: CS => allocating delta_vl :', jpi,jpj 
    8481         ALLOCATE ( delta_vl(jpi,jpj), STAT=ierr ) 
    8582         !IF( ierr > 0 ) STOP ' COARE3P6_INIT => allocation of delta_vl and Qnt_ac failed!' 
    8683         delta_vl(:,:) = 0.001_wp      ! First guess of zdelta [m] 
    87          PRINT *, ' *** delta_vl allocated!' 
    8884      END IF 
    8985   END SUBROUTINE coare3p6_init 
Note: See TracChangeset for help on using the changeset viewer.