Custom Query (964 matches)

• Update the Adjoint model to write out ad_W. A new output variable ad_W_sol to save the current ad_W solution before it is zeroed out. In ad_ouput.F, we have:

  !
  !  Save current adjoint solution for IO purposes.
  !
        DO k=0,N(ng)
          DO j=JstrR,JendR
            DO i=IstrR,IendR
              ad_W_sol(i,j,k)=ad_W(i,j,k)
            END DO
          END DO
        END DO
  

  Many thanks to Brian Powell for bringing this IO issue to our attention for his adjoint sensitivity studies.

• Corrected tides_date.F to include missing module reference:

        USE strings_mod,   ONLY : FoundError
  

  Many thanks to John Warner for reporting this problem.

I turned off the yaml_tree object creation switch IsCreated when deallocating object in routine yaml_tree_destroy. It is needed in the ROMS-JEDI interface.

!
!  Recall that Fortran 2003 standard allows deallocating just the
!  parent object to deallocate all array variables within its scope
!  automatically.
!
      IF (ASSOCIATED(self%list)) THEN
        self%IsCreated=.FALSE.
        DEALLOCATE (self%list)
      END IF

Updated the ROMS/TOMS Copyright to all algorithms:

 Copyright (c) 2002-2023 The ROMS/TOMS Group
    Licensed under a MIT/X style license
    See License_ROMS.txt