New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 11263 for NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src – NEMO

Ignore:
Timestamp:
2019-07-12T12:47:53+02:00 (5 years ago)
Author:
smasson
Message:

dev_r10984_HPC-13 : merge with trunk@11242, see #2285

Location:
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src
Files:
9 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/ICE/iceistate.F90

    r10534 r11263  
    504504      !! 
    505505      !!----------------------------------------------------------------------------- 
    506       INTEGER ::   ji, jj 
    507       INTEGER ::   ios, ierr, inum_ice   ! Local integer output status for namelist read 
     506      INTEGER ::   ios   ! Local integer output status for namelist read 
    508507      INTEGER ::   ifpr, ierror 
    509508      ! 

  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/ICE/icethd_do.F90

    r10994 r11263  
    128128 
    129129      ! Default new ice thickness 
    130       WHERE( qlead(:,:) < 0._wp )   ;   ht_i_new(:,:) = rn_hinew 
    131       ELSEWHERE                     ;   ht_i_new(:,:) = 0._wp 
     130      WHERE( qlead(:,:) < 0._wp  .AND. tau_icebfr(:,:) == 0._wp )   ;   ht_i_new(:,:) = rn_hinew ! if cooling and no landfast 
     131      ELSEWHERE                                                     ;   ht_i_new(:,:) = 0._wp 
    132132      END WHERE 
    133133 
    … …  
    182182                  END DO 
    183183                  ! 
     184                  ! bound ht_i_new (though I don't see why it should be necessary) 
     185                  ht_i_new(ji,jj) = MAX( 0.01_wp, MIN( ht_i_new(ji,jj), hi_max(jpl) ) ) 
     186                  ! 
    184187               ENDIF 
    185188               ! 

  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/NST/agrif_top_update.F90

    r10068 r11263  
    138138                     DO ji=i1,i2 
    139139                        IF( tabres_child(ji,jj,jk,jn) .NE. 0. ) THEN 
    140                            trb(ji,jj,jk,jn) = tsb(ji,jj,jk,jn) &  
     140                           trb(ji,jj,jk,jn) = trb(ji,jj,jk,jn) &  
    141141                                 & + atfp * ( tabres_child(ji,jj,jk,jn) & 
    142142                                 &          - trn(ji,jj,jk,jn) ) * tmask(ji,jj,jk) 

  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/DOM/dommsk.F90

    r11223 r11263  
    142142            ENDIF 
    143143         END DO   
    144       END DO   
    145 !SF  add here lbc_lnk: bug not still understood : cause now domain configuration is read ! 
    146 !!gm I don't understand why...   
     144      END DO 
     145      ! 
     146      ! the following call is mandatory 
     147      ! it masks boundaries (bathy=0) where needed depending on the configuration (closed, periodic...)   
    147148      CALL lbc_lnk( 'dommsk', tmask  , 'T', 1._wp )      ! Lateral boundary conditions 
    148149 

  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/LBC/mppini.F90

    r11223 r11263  
    671671      ! 
    672672      CALL mpp_init_ioipsl       ! Prepare NetCDF output file (if necessary) 
    673       ! 
    674       IF( ln_nnogather ) THEN 
     673      !       
     674      IF (( jperio >= 3 .AND. jperio <= 6 .AND. jpni > 1 ).AND.( ln_nnogather )) THEN 
    675675         CALL mpp_init_nfdcom     ! northfold neighbour lists 
    676676         IF (llwrtlay) THEN 

  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/SBC/sbcapr.F90

    r10425 r11263  
    2626   PUBLIC   sbc_apr_init  ! routine called in sbcmod 
    2727    
    28    !                                !!* namsbc_apr namelist (Atmospheric PRessure) * 
    29    LOGICAL, PUBLIC ::   ln_apr_obc   !: inverse barometer added to OBC ssh data  
    30    LOGICAL, PUBLIC ::   ln_ref_apr   !: ref. pressure: global mean Patm (F) or a constant (F) 
    31    REAL(wp)        ::   rn_pref      !  reference atmospheric pressure   [N/m2] 
     28   !                                          !!* namsbc_apr namelist (Atmospheric PRessure) * 
     29   LOGICAL, PUBLIC ::   ln_apr_obc = .false.   !: inverse barometer added to OBC ssh data  
     30   LOGICAL, PUBLIC ::   ln_ref_apr             !: ref. pressure: global mean Patm (F) or a constant (F) 
     31   REAL(wp)        ::   rn_pref                !  reference atmospheric pressure   [N/m2] 
    3232 
    3333   REAL(wp), ALLOCATABLE, SAVE, PUBLIC, DIMENSION(:,:) ::   ssh_ib    ! Inverse barometer now    sea surface height   [m] 

  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/SAS/nemogcm.F90

    r10601 r11263  
    165165#else 
    166166      IF    ( lk_oasis ) THEN   ;   CALL cpl_finalize   ! end coupling and mpp communications with OASIS 
    167       ELSEIF( lk_mpp   ) THEN   ;   CALL mppstop        ! end mpp communications 
    168       ENDIF 
    169 #endif 
     167      ELSEIF( lk_mpp   ) THEN   ;   CALL mppstop( ldfinal = .TRUE. )   ! end mpp communications 
     168      ENDIF 
     169#endif 
     170      ! 
     171      IF(lwm) THEN 
     172         IF( nstop == 0 ) THEN   ;   STOP 0 
     173         ELSE                    ;   STOP 999 
     174         ENDIF 
     175      ENDIF 
    170176      ! 
    171177   END SUBROUTINE nemo_gcm 
    … …  
    311317         WRITE(numout,*) "       )  )       \) |`\ \)  '.   \      (   (   " 
    312318         WRITE(numout,*) "      (  (           \_/       '-._\      )   )  " 
    313          WRITE(numout,*) "       )  )                        `     (   (   " 
     319         WRITE(numout,*) "       )  ) jgs                    `     (   (   " 
    314320         WRITE(numout,*) "     ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ " 
    315321         WRITE(numout,*) 
     322 
    316323         DO ji = 1, SIZE(cltxt) 
    317             IF( TRIM(cltxt (ji)) /= '' )   WRITE(numout,*) cltxt(ji)    ! control print of mynode 
     324            IF( TRIM(cltxt (ji)) /= '' )   WRITE(numout,*) TRIM(cltxt(ji))    ! control print of mynode 
    318325         END DO 
    319326         WRITE(numout,*) 
    320327         WRITE(numout,*) 
    321328         DO ji = 1, SIZE(cltxt2) 
    322             IF( TRIM(cltxt2(ji)) /= '' )   WRITE(numout,*) cltxt2(ji)   ! control print of domain size 
     329            IF( TRIM(cltxt2(ji)) /= '' )   WRITE(numout,*) TRIM(cltxt2(ji))   ! control print of domain size 
    323330         END DO 
    324331         ! 
    … …  
    467474      ! 
    468475      IF( 1._wp /= SIGN(1._wp,-0._wp)  )   CALL ctl_stop( 'nemo_ctl: The intrinsec SIGN function follows f2003 standard.',  & 
    469          &                                                'Compile with key_nosignedzero enabled' ) 
     476         &                                                'Compile with key_nosignedzero enabled:',   & 
     477         &                                                '--> add -Dkey_nosignedzero to the definition of %CPP in your arch file' ) 
    470478      ! 
    471479#if defined key_agrif 

  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/TOP/PISCES/P4Z/p4zpoc.F90

    r10973 r11263  
    102102     ! particle scheme. Does not work with Kriest parameterization. 
    103103     ! ----------------------------------------------------------------------- 
     104     ztremint(:,:,:) = zremigoc(:,:,:) 
    104105     DO jk = 2, jpkm1 
    105106        DO jj = 1, jpj 
    … …  
    285286     ! layer, this spectrum is supposed to be uniform. 
    286287     ! --------------------------------------------------------------------- 
     288     ztremint(:,:,:) = zremipoc(:,:,:) 
    287289     DO jk = 1, jpkm1 
    288290        DO jj = 1, jpj 

  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/TOP/PISCES/P4Z/p4zprod.F90

    r10873 r11263  
    225225         DO jj = 1, jpj 
    226226            DO ji = 1, jpi 
    227                zprbio(ji,jj,jk) = zprbio(ji,jj,jk) * ( 1. - fr_i(ji,jj) ) 
    228                zprdia(ji,jj,jk) = zprdia(ji,jj,jk) * ( 1. - fr_i(ji,jj) ) 
    229227               zprbio(ji,jj,jk) = zprbio(ji,jj,jk) * ( 1. - fr_i(ji,jj) ) 
    230228               zprdia(ji,jj,jk) = zprdia(ji,jj,jk) * ( 1. - fr_i(ji,jj) ) 
Note: See TracChangeset for help on using the changeset viewer.