When compiling without the CPP key_ldfslp, diawri does not compile because of the line :

   USE traldf_iso_grif, ONLY : psix_eiv, psiy_eiv

In fact the dummy traldf_iso_grif routine ( which is compiled when key_ldfslp is not defined ) does not declare psix_eiv, nor psiy_eiv

Attached is a possible fix.

This is an old bug, never corrected, harmless indeed !

• 3rd index of zprt should change from 1 to 6, if not, it is always the same value which is printed !

        IF(lwp .AND. ll_print) THEN                     !   Control print   !
           !                                            ! ================= !
           DO jj = 1,jpj
              DO ji = 1, jpi
                 ik = MAX( mbathy(ji,jj), 1 )
                 zprt(ji,jj,1) = e3t   (ji,jj,ik)
                 zprt(ji,jj,2) = e3w   (ji,jj,ik)
                 zprt(ji,jj,3) = e3u   (ji,jj,ik)
                 zprt(ji,jj,4) = e3v   (ji,jj,ik)
                 zprt(ji,jj,5) = e3f   (ji,jj,ik)
                 zprt(ji,jj,6) = gdep3w(ji,jj,ik)
              END DO
           END DO
           WRITE(numout,*)
           WRITE(numout,*) 'domzgr e3t(mbathy)'      ;   CALL prihre(zprt(:,:,1),jpi,jpj,1,jpi,1,1,jpj,1,1.e-3,numout)
           WRITE(numout,*)
           WRITE(numout,*) 'domzgr e3w(mbathy)'      ;   CALL prihre(zprt(:,:,1),jpi,jpj,1,jpi,1,1,jpj,1,1.e-3,numout)
           WRITE(numout,*)
           WRITE(numout,*) 'domzgr e3u(mbathy)'      ;   CALL prihre(zprt(:,:,1),jpi,jpj,1,jpi,1,1,jpj,1,1.e-3,numout)
           WRITE(numout,*)
           WRITE(numout,*) 'domzgr e3v(mbathy)'      ;   CALL prihre(zprt(:,:,1),jpi,jpj,1,jpi,1,1,jpj,1,1.e-3,numout)
           WRITE(numout,*)
           WRITE(numout,*) 'domzgr e3f(mbathy)'      ;   CALL prihre(zprt(:,:,1),jpi,jpj,1,jpi,1,1,jpj,1,1.e-3,numout)
           WRITE(numout,*)
           WRITE(numout,*) 'domzgr gdep3w(mbathy)'   ;   CALL prihre(zprt(:,:,1),jpi,jpj,1,jpi,1,1,jpj,1,1.e-3,numout)
        ENDIF
  

there are 2 differents CPP keys for the same reason :

key_lim2 and key_ice_lim2 key_lim3 and key_ice_lim3

It seems that key_ice_xxx is not correct. This is used in modules :

bdydta.F90 diadct.F90 diaobs.F90